home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 95 / Amiga News 95.iso / dpat / dpat78 / hp48 / ahp2.0+ / install_ahp < prev    next >
Text File  |  1994-08-29  |  3KB  |  96 lines
  1. ; Script d'installation pour AHP (Workbench 2.0+)
  2.  
  3. (set @default-dest "")
  4.  
  5. (set ahp "/AHP2.0+/AHP")
  6. (set ahpinfo "/AHP2.0+/AHP.info")
  7. (set reqtoolslib "/Libs2.0+/reqtools.library")
  8.  
  9. ;=============================================================================
  10.  
  11. (set #bad-kick
  12. (cat "Vous devez utiliser le Kickstart 2.04 pour installer en utilisant ce script."
  13.           " Double-click le 'Workbench_1.3' icon pour installer AHP sur"
  14.           " une machine avec Kickstart 1.3."
  15. ))
  16.  
  17. (set #copying-reqtools "Copie reqtools.library en Libs:...")
  18. (set #copying-gadtools "Copie gadtools.library en Libs:...")
  19.  
  20. (set #install-msg
  21. (cat "\n\nAHP script d'installation.\n"
  22.      "Ce script installe AHP sur votre Amiga.\n\n"
  23.      "Lire le fichier AHP.DOC pour plus\n"
  24.      "d'information sur la distribution de AHP\n\n"
  25.      "AHP v1.5 © 1992-1994 DOUCET Stéphane\n"
  26.      "tous droits reservés."
  27. ))
  28.  
  29. ;=============================================================================
  30. ; Vérification si lancer sous ROM 2.04+
  31.  
  32. (if (< (/ (getversion) 65536) 37)
  33. (
  34.     (abort #bad-kick)
  35. ))
  36.  
  37. ;=============================================================================
  38.  
  39. (message #install-msg)
  40.  
  41. (
  42.         ; Répertoire de destination pour AHP
  43.         (set mydest
  44.                 (askdir
  45.                        (prompt "Selectionnez le répertoire où vous voulez mettre AHP.")
  46.                        (help @askfile-help)
  47.                        (default "SYS:")
  48.                        (disk)
  49.                 )
  50.         )
  51.  
  52.         (set @default-dest mydest)
  53.  
  54.         (set mmdest (tackon mydest "AHP"))
  55.  
  56.         (
  57.                 (if (= 1 (exists mmdest))
  58.                         (
  59.                                 (if (= 0
  60.                                         (askbool
  61.                                                 (prompt "Vous avez déjà installé AHP. Voullez-vous le réinstaller?\n\n")
  62.                                                 (help @askbool-help)
  63.                                                 (default 1)
  64.                                                 (choices "Continuer" "Arrêter")
  65.                                         ))
  66.                                         (abort "D'accord, Je ne le réinstalle pas.")
  67.                                 )
  68.                          )
  69.                 )
  70.         )
  71.  
  72.         (copyfiles
  73.                 (prompt ("\nCopie AHP dans %s." mydest))
  74.                 (help @copyfiles-help)
  75.                 (source ahp)
  76.                 (dest mydest)
  77.                 (infos)
  78.         )
  79.  
  80.         (copyfiles
  81.                 (prompt ("\nCopie AHP.info"))
  82.                 (help @copyfiles-help)
  83.                 (source ahpinfo)
  84.                 (dest mydest)
  85.                 (infos)
  86.         )
  87.  
  88.         (copylib
  89.                 (prompt "\n" #copying-reqtools)
  90.                 (help @copylib-help)
  91.                 (source reqtoolslib)
  92.                 (dest "Libs:")
  93.                 (confirm)
  94.         )
  95. )
  96.